home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Arsenal Files 6
/
The Arsenal Files 6 (Arsenal Computer).ISO
/
prg_basi
/
agavb25.zip
/
VB.ZIP
/
GSCALES.FRM
< prev
next >
Wrap
Text File
|
1996-01-16
|
18KB
|
548 lines
VERSION 2.00
Begin Form ScaleDemo
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "Scales"
ClientHeight = 4515
ClientLeft = 2565
ClientTop = 4680
ClientWidth = 8865
Height = 4920
Left = 2505
LinkTopic = "Form2"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 4515
ScaleWidth = 8865
Top = 4335
Width = 8985
Begin Frame Frame1
BackColor = &H00C0C0C0&
Caption = "Scale ID"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 855
Left = 4620
TabIndex = 0
Top = 120
Width = 1035
Begin OptionButton Option1
BackColor = &H00C0C0C0&
Caption = "1"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "System"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Index = 1
Left = 165
TabIndex = 2
Top = 510
Width = 615
End
Begin OptionButton Option1
BackColor = &H00C0C0C0&
Caption = "0"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "System"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Index = 0
Left = 165
TabIndex = 1
Top = 255
Value = -1 'True
Width = 615
End
End
Begin Frame Frame5
BackColor = &H00C0C0C0&
Caption = "Scale Angle Properties"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 1035
Left = 4200
TabIndex = 3
Top = 2145
Width = 4300
Begin HScrollBar HScroll1
Height = 240
Index = 4
Left = 1590
Max = 360
TabIndex = 4
Top = 345
Width = 2000
End
Begin HScrollBar HScroll1
Height = 240
Index = 5
Left = 1590
Max = 360
TabIndex = 5
Top = 585
Width = 2000
End
Begin Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = " 0"
Height = 195
Index = 5
Left = 3720
TabIndex = 6
Top = 600
Width = 180
End
Begin Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = " 0"
Height = 195
Index = 4
Left = 3720
TabIndex = 7
Top = 360
Width = 180
End
Begin Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "ScaleStartAngle:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 4
Left = 285
TabIndex = 8
Top = 330
Width = 1215
End
Begin Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "ScaleStopAngle:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 5
Left = 285
TabIndex = 9
Top = 585
Width = 1200
End
End
Begin Frame Frame4
BackColor = &H00C0C0C0&
Caption = "Scale Origin Properties"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 1035
Left = 4200
TabIndex = 20
Top = 3270
Width = 4300
Begin HScrollBar HScroll1
Height = 240
Index = 2
Left = 1620
Max = 140
Min = -140
TabIndex = 10
Top = 330
Width = 2000
End
Begin HScrollBar HScroll1
Height = 240
Index = 3
Left = 1620
Max = 140
Min = -140
TabIndex = 27
Top = 570
Width = 2000
End
Begin Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = " 0"
Height = 195
Index = 2
Left = 3735
TabIndex = 11
Top = 345
Width = 180
End
Begin Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "ScaleOriginX:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 2
Left = 495
TabIndex = 12
Top = 330
Width = 975
End
Begin Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "ScaleOriginY:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 3
Left = 495
TabIndex = 13
Top = 585
Width = 990
End
Begin Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = " 0"
Height = 195
Index = 3
Left = 3735
TabIndex = 14
Top = 570
Width = 180
End
End
Begin Frame Frame3
BackColor = &H00C0C0C0&
Caption = "Scale Limit Properties"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 1035
Left = 4215
TabIndex = 19
Top = 1035
Width = 4300
Begin HScrollBar HScroll1
Height = 240
Index = 0
Left = 1575
Max = 100
TabIndex = 22
Top = 345
Width = 2000
End
Begin HScrollBar HScroll1
Height = 240
Index = 1
Left = 1575
Max = 100
TabIndex = 21
Top = 585
Width = 2000
End
Begin Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = " 0"
Height = 195
Index = 0
Left = 3690
TabIndex = 26
Top = 360
Width = 180
End
Begin Label Label1
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "ScaleMaxValue:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 0
Left = 390
TabIndex = 25
Top = 330
Width = 1170
End
Begin Label Label1
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "ScaleMinValue:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 1
Left = 420
TabIndex = 24
Top = 600
Width = 1110
End
Begin Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = " 0"
Height = 195
Index = 1
Left = 3690
TabIndex = 23
Top = 600
Width = 180
End
End
Begin AGAUGE Gauge1
Angle = 0
AutoRedraw = -1 'True
AVersion = 2.5
BackgroundColor = &H00C0C0C0&
BevelInner = 1 ' 1 - Raised
BevelOuter = 2 ' 2 - Inset
BevelWidth = 2
BorderType = 1 ' 1 - Bevel
BorderWidth = 2
FontID = 1
FrameColor = &H00000000&
FrameScaleX = 0
FrameScaleY = 0
FrameStyle = 0 ' 0 - None
Height = 4185
Left = 120
MouseControl = -1 'True
OutlineAlign = 0 ' 0 - Left
OutlineColor = &H00000000&
OutlineTitle = ""
OutlineWidth = 0
Radius = 0
Shape = ""
TabIndex = 18
Top = 90
Value = 0
Width = 4005
XScale = 0
YScale = 0
ZLoad = GSCALES.FRX:0000
End
Begin Frame Frame2
BackColor = &H00C0C0C0&
Caption = "Scale Direction Property"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 855
Left = 5805
TabIndex = 15
Top = 120
Width = 2310
Begin OptionButton Option2
BackColor = &H00C0C0C0&
Caption = "Counter Clockwise"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 240
Index = 1
Left = 150
TabIndex = 17
Top = 510
Width = 1965
End
Begin OptionButton Option2
BackColor = &H00C0C0C0&
Caption = "Clockwise"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 240
Index = 0
Left = 150
TabIndex = 16
Top = 270
Value = -1 'True
Width = 1545
End
End
End
Sub Form_Load ()
hscroll1(0) = gauge1.ScaleMaxValue
hscroll1(1) = gauge1.ScaleMinValue
hscroll1(2) = gauge1.ScaleOriginX * 100
hscroll1(3) = gauge1.ScaleOriginY * 100
hscroll1(4) = gauge1.ScaleStartAngle
hscroll1(5) = gauge1.ScaleStopAngle
option2(gauge1.ScaleDirection) = True
End Sub
Sub HScroll1_Change (index As Integer)
Select Case index
Case 0
If gauge1.ScaleMinValue < hscroll1(0) Then
gauge1.ScaleMaxValue = hscroll1(0)
gauge1.TicStopValue = hscroll1(0) + 1
If gauge1.ScaleID = 0 And gauge1.NeedleValue > hscroll1(0) Then
gauge1.NeedleValue = hscroll1(0)
End If
If gauge1.ScaleID = 0 Then
gauge1.AnnularStopValue = hscroll1(0)
End If
Else
hscroll1(0) = gauge1.ScaleMinValue
End If
label2(0) = hscroll1(0)
Case 1
If hscroll1(1) < gauge1.ScaleMaxValue Then
gauge1.ScaleMinValue = hscroll1(1)
gauge1.TicStartValue = hscroll1(1)
If gauge1.ScaleID = 0 And gauge1.NeedleValue < hscroll1(1) Then
gauge1.NeedleValue = hscroll1(1)
End If
If gauge1.ScaleID = 0 Then
gauge1.AnnularStartValue = hscroll1(1)
End If
Else
hscroll1(1) = gauge1.ScaleMaxValue
End If
label2(1) = hscroll1(1)
Case 2
gauge1.ScaleOriginX = hscroll1(2) / 100
label2(2) = hscroll1(2) / 100
Case 3
gauge1.ScaleOriginY = hscroll1(3) / 100
label2(3) = hscroll1(3) / 100
Case 4
gauge1.ScaleStartAngle = hscroll1(4)
label2(4) = hscroll1(4)
Case 5
gauge1.ScaleStopAngle = hscroll1(5)
label2(5) = hscroll1(5)
End Select
End Sub
Sub HScroll1_Scroll (index As Integer)
Select Case index
Case 0
If gauge1.ScaleMinValue < hscroll1(0) Then
gauge1.ScaleMaxValue = hscroll1(0)
gauge1.TicStopValue = hscroll1(0) + 1
If gauge1.ScaleID = 0 And gauge1.NeedleValue > hscroll1(0) Then
gauge1.NeedleValue = hscroll1(0)
End If
If gauge1.ScaleID = 0 Then
gauge1.AnnularStopValue = hscroll1(0)
End If
Else
hscroll1(0) = gauge1.ScaleMinValue
End If
label2(0) = hscroll1(0)
Case 1
If hscroll1(1) < gauge1.ScaleMaxValue Then
gauge1.ScaleMinValue = hscroll1(1)
gauge1.TicStartValue = hscroll1(1)
If gauge1.ScaleID = 0 And gauge1.NeedleValue < hscroll1(1) Then
gauge1.NeedleValue = hscroll1(1)
End If
If gauge1.ScaleID = 0 Then
gauge1.AnnularStartValue = hscroll1(1)
End If
Else
hscroll1(1) = gauge1.ScaleMaxValue
End If
label2(1) = hscroll1(1)
Case 2
gauge1.ScaleOriginX = hscroll1(2) / 100
label2(2) = hscroll1(2) / 100
Case 3
gauge1.ScaleOriginY = hscroll1(3) / 100
label2(3) = hscroll1(3) / 100
Case 4
gauge1.ScaleStartAngle = hscroll1(4)
label2(4) = hscroll1(4)
Case 5
gauge1.ScaleStopAngle = hscroll1(5)
label2(5) = hscroll1(5)
End Select
End Sub
Sub Option1_Click (index As Integer)
gauge1.ScaleID = index
gauge1.TicID = index
hscroll1(0) = gauge1.ScaleMaxValue
hscroll1(1) = gauge1.ScaleMinValue
hscroll1(2) = gauge1.ScaleOriginX * 100
hscroll1(3) = gauge1.ScaleOriginY * 100
hscroll1(4) = gauge1.ScaleStartAngle
hscroll1(5) = gauge1.ScaleStopAngle
option2(gauge1.ScaleDirection) = True
End Sub
Sub Option2_Click (index As Integer)
gauge1.ScaleDirection = index
End Sub
